#library(knitr)
#knit_hooks$set(optipng = hook_optipng)

Results

fMRI: whole-brain

  • Results displayed based on p uncorrected after cluster extension correction.
  • FBL_A (Feedback learning A, basic task of symbol-speech sound learning)
  • FBL_B (Feedback learning B,symbols from A are presented with modifier marks that change the sound)

FBL-A

GLM-thirds

Onsets of stimuli and feedback for each third of trials. One regressor of no interest contained onsets of feedback and stimuli in trials with missing responses These results are based on uncorrected p with cluster extension correction.

Results table
dat <- readxl::read_xlsx('O:/studies/grapholemo/analysis/LEMO_GFG/mri/2ndLevel/FeedbackLearning/Result_regions_2Lv_GLM0_thirds_exMiss.xlsx')
dat <-dat[grep('FBL_A',dat$file),]
#some formatting 
dat$file <- substr(dat$file,unlist(gregexpr('con_0',dat$file)),unlist(gregexpr('con_0',dat$file))+7) #keep just the con_**** as name 
dat <- dplyr::relocate(dat,'aal',2) 
    dat <-  dplyr::relocate(dat,'file',1)
    cons2plot <- unique(dat$file)  


# Rename contrasts 
urfile <- dat$file 
renamecontrasts <- function(originalNames){
    
    originalNames <- gsub('con_0002','S1>S3',originalNames)
    originalNames <- gsub('con_0003','S3>S1',originalNames)
    originalNames <- gsub('con_0004','F1>F3',originalNames)
    originalNames <- gsub('con_0005','F3>F1',originalNames)
    originalNames <- gsub('con_0006','S1>.',originalNames)
    originalNames <- gsub('con_0007','S3>.',originalNames)
    originalNames <- gsub('con_0008','F1>.',originalNames)
    originalNames <- gsub('con_0009','F3>.',originalNames)
    
}

dat$file <- renamecontrasts(dat$file) 

knitr::kable(dat,caption='', digits=3) %>% 
    #kable_styling(bootstrap_options = c("striped", "hover"), full_width = F) %>%
    column_spec(1, bold = T, border_right = T ) %>%
    kable_classic(full_width = F, html_font = "Calibri")
file aal xcoord ycoord zcoord cluster_pFWE cluster_punc cluster_k peak_Z peak_T peak_pFWE peak_punc T_heightThresh dist
S1>S3 Caudate_R 22 6 21 0.0074 5e-04 83 5.14 6.22 0.0105 0 3.327 0
S1>S3 Frontal_Inf_Orb_R 43 48 -9 0.004 3e-04 93 4.97 5.95 0.0248 0 3.327 0
S1>S3 Angular_R 61 -60 33 1e-04 0 154 4.7 5.52 0.085 0 3.327 1
S1>S3 Caudate_L -17 12 21 0.019 0.0012 68 4.42 5.09 0.2353 0 3.327 0
S1>S3 Frontal_Mid_R 37 48 30 0.0147 9e-04 72 4.3 4.92 0.3355 0 3.327 0
S1>S3 Temporal_Mid_R 67 -24 -9 3e-04 0 140 3.9 4.36 0.8034 0 3.327 0
S3>S1 Occipital_Sup_L -17 -90 3 0 0 3631 5.68 7.19 5e-04 0 3.321 0
S3>S1 Fusiform_R 31 3 -36 0 0 933 5.44 6.76 0.002 0 3.321 0
S3>S1 Insula_R 37 -6 12 0.0069 4e-04 84 4.93 5.89 0.0304 0 3.321 0
S3>S1 Supp_Motor_Area_R 7 -6 54 0 0 339 4.56 5.3 0.1454 0 3.321 0
S3>S1 Postcentral_R 40 -36 72 0 0 247 4.52 5.25 0.163 0 3.321 0
S3>S1 Frontal_Inf_Oper_L -38 15 24 0.0051 3e-04 89 4.33 4.96 0.3125 0 3.321 0
S3>S1 Caudate_R 13 12 -9 0.0065 4e-04 85 4.23 4.82 0.4154 0 3.321 0
F1>F3 Frontal_Mid_R 40 45 18 0 0 278 4.87 5.79 0.0416 0 3.344 0
F1>F3 Cerebelum_7b_L -41 -54 -45 0.0094 6e-04 75 4.79 5.66 0.0615 0 3.344 0
F1>F3 Frontal_Mid_R 40 21 42 0.01 6e-04 74 4.41 5.08 0.256 0 3.344 0
F1>F3 Insula_R 37 18 -3 0.0115 7e-04 72 4.31 4.94 0.3439 0 3.344 0
F1>F3 Angular_R 43 -51 30 6e-04 0 119 4.19 4.77 0.4757 0 3.344 0
F1>F3 Temporal_Mid_R 55 -21 -9 0.0013 1e-04 107 3.9 4.35 0.8303 0 3.344 0
F3>F1 Postcentral_L -29 -30 75 0 0 390 5.18 6.31 0.0081 0 3.333 0
F3>F1 Parietal_Sup_R 28 -57 75 0.0072 4e-04 79 5.15 6.25 0.0095 0 3.333 0
F3>F1 Occipital_Mid_L -20 -93 3 2e-04 0 142 5.14 6.23 0.0104 0 3.333 0
F3>F1 Temporal_Pole_Mid_L -29 9 -33 0.0032 2e-04 92 5.12 6.2 0.0113 0 3.333 0
F3>F1 Parietal_Sup_L -8 -84 60 0.0131 8e-04 70 4.63 5.41 0.1165 0 3.333 5.1
F3>F1 Fusiform_R 34 0 -36 0.0302 0.0018 58 4.53 5.26 0.1674 0 3.333 0
F3>F1 Frontal_Sup_Orb_R 16 48 -12 0.0403 0.0025 54 3.75 4.16 0.9375 1e-04 3.333 0
S1>. Temporal_Sup_L -47 -21 3 0 0 1954 Inf 12.83 0 0 3.32 0
S1>. Temporal_Sup_R 58 -27 6 0 0 1453 7.5 11.49 0 0 3.32 0
S1>. Supp_Motor_Area_L -8 6 51 0 0 379 6.5 8.9 0 0 3.32 0
S1>. Occipital_Mid_R 34 -78 0 0 0 396 6.17 8.17 0 0 3.32 0
S1>. Occipital_Inf_L -32 -84 0 0 0 227 5.07 6.11 0.0151 0 3.32 0
S1>. Parietal_Sup_L -29 -66 54 0 0 594 4.87 5.79 0.0393 0 3.32 0
S3>. Temporal_Sup_R 58 -3 -6 0 0 4872 Inf 15.47 0 0 3.346 0
S3>. Temporal_Sup_L -50 -21 6 0 0 6328 Inf 14.62 0 0 3.346 0
S3>. Occipital_Inf_L -38 -78 -9 0 0 991 7.03 10.17 0 0 3.346 0
S3>. Vermis_10 1 -39 -39 0.0079 5e-04 83 4.29 4.9 0.3486 0 3.346 1
S3>. Precentral_R 28 -3 48 0.007 5e-04 85 4.06 4.58 0.6126 0 3.346 0
F1>. Angular_R 49 -66 48 0 0 539 6.05 7.93 1e-04 0 3.341 0
F1>. Parietal_Inf_L -53 -51 45 0 0 600 5.9 7.61 1e-04 0 3.341 0
F1>. Frontal_Mid_R 46 39 21 0 0 1359 5.84 7.5 2e-04 0 3.341 0
F1>. Cerebelum_7b_L -41 -51 -42 0 0 329 5.71 7.26 4e-04 0 3.341 0
F1>. Frontal_Inf_Orb_L -47 42 -12 0 0 415 5.64 7.13 6e-04 0 3.341 0
F1>. Temporal_Mid_L -65 -21 -12 4e-04 0 120 4.52 5.24 0.186 0 3.341 0
F1>. Insula_L -35 -12 24 0.043 0.0025 51 4.31 4.93 0.3625 0 3.341 0
F1>. Temporal_Mid_R 67 -33 -9 0.0012 1e-04 104 4.26 4.87 0.4111 0 3.341 0
F1>. Supp_Motor_Area_L -5 15 63 0.0295 0.0017 56 4.18 4.74 0.5132 0 3.341 0
F3>. Occipital_Sup_L -17 -90 3 0 0 280 6.75 9.48 0 0 3.344 0
F3>. Cuneus_R 13 -96 12 0 0 312 4.95 5.92 0.0274 0 3.344 0
Contrasts
S1>S3

S3>S1

F1>F3

F3>F1

S1>.

S3>.

F1>.

F3>.

Model-based GLM

Onsets of stimuli and feedback against baseline. One regressor of no interest contained onsets of feedback and stimuli in trials with missing responses These results are based on FWE corrected p

Results table
dat <- readxl::read_xlsx('O:/studies/grapholemo/analysis/LEMO_GFG/mri/2ndLevel/FeedbackLearning/Result_regions_2Lv_GLM0_mopa_aspe_withFWE.xlsx')
dat <-dat[grep('FBL_A',dat$file),]
dat <- dat[c(grep('con_0006',dat$file),grep('con_0007',dat$file),grep('con_0008',dat$file),grep('con_0009',dat$file)),]

#some formatting 
dat$file <- substr(dat$file,unlist(gregexpr('con_0',dat$file)),unlist(gregexpr('con_0',dat$file))+7) #keep just the con_**** as name 
dat <- dplyr::relocate(dat,'aal',2) 
    dat <-  dplyr::relocate(dat,'file',1)
    cons2plot <- unique(dat$file)  
if (any(dat$cluster_k>15)){
  dat<-dat[which(as.numeric(dat$cluster_k)>15),]
}
# Rename contrasts 
urfile <- dat$file 
renamecontrastsmopa <- function(originalNames){
    
    originalNames <- gsub('con_0002','S>.',originalNames)
    originalNames <- gsub('con_0003','F>.',originalNames)
    originalNames <- gsub('con_0004','S>F',originalNames)
    originalNames <- gsub('con_0005','F>S',originalNames)
    originalNames <- gsub('con_0006','Sas+',originalNames)
    originalNames <- gsub('con_0007','Sas-',originalNames)
    originalNames <- gsub('con_0008','Fpe+',originalNames)
    originalNames <- gsub('con_0009','Fpe-',originalNames)
    
}

dat$file <- renamecontrastsmopa(dat$file) 

knitr::kable(dat,caption='', digits=3) %>% 
    #kable_styling(bootstrap_options = c("striped", "hover"), full_width = F) %>%
    column_spec(1, bold = T, border_right = T ) %>%
    kable_classic(full_width = F, html_font = "Calibri")
file aal xcoord ycoord zcoord cluster_pFWE cluster_punc cluster_k peak_Z peak_T peak_pFWE peak_punc T_heightThresh dist
Sas+ Calcarine_L -11 -87 -3 0 0 230 7.33 11.01 0.000 0 5.747 0
Sas+ Lingual_R 16 -75 -9 0 0 135 6.27 8.38 0.000 0 5.747 0
Sas+ Calcarine_L -8 -69 9 0 2e-04 16 5.19 6.31 0.008 0 5.747 0
Fpe+ Angular_L -50 -72 27 0 0 129 7.08 10.31 0.000 0 5.662 0
Fpe+ Frontal_Med_Orb_L -8 45 -12 0 0 556 6.73 9.44 0.000 0 5.662 0
Fpe+ Postcentral_R 31 -33 48 0 0 1693 6.69 9.34 0.000 0 5.662 0
Fpe+ Putamen_L -14 9 -9 0 0 58 6.5 8.90 0.000 0 5.662 0
Fpe+ Frontal_Sup_L -17 27 48 0 0 84 6.41 8.70 0.000 0 5.662 0
Fpe+ Frontal_Mid_Orb_L -29 42 -12 0 0 55 6.29 8.43 0.000 0 5.662 0
Fpe+ ParaHippocampal_L -17 -3 -27 0 0 67 6.2 8.24 0.000 0 5.662 0
Fpe+ Precuneus_R 7 -54 18 0 0 287 6.07 7.96 0.000 0 5.662 0
Fpe+ Calcarine_R 28 -63 18 0 0 43 5.8 7.42 0.000 0 5.662 3.61
Fpe+ Lingual_L -26 -45 3 0 0 37 5.78 7.38 0.000 0 5.662 3
Fpe+ Temporal_Sup_R 70 -6 6 0 0 57 5.63 7.10 0.001 0 5.662 0
Fpe+ Insula_R 25 -18 18 0 0 90 5.59 7.03 0.001 0 5.662 4.12
Fpe+ Caudate_R 19 3 24 0 0 55 5.47 6.80 0.002 0 5.662 0
Fpe+ ParaHippocampal_R 25 -24 -21 0 0 32 5.38 6.64 0.003 0 5.662 0
Fpe+ Caudate_L -20 -6 24 0 1e-04 27 5.33 6.55 0.004 0 5.662 1
Fpe- Frontal_Inf_Orb_R 37 24 -9 0 0 118 6.58 9.08 0.000 0 5.953 0
Fpe- Insula_L -32 24 0 0 3e-04 21 5.97 7.77 0.000 0 5.953 0
Fpe- Supp_Motor_Area_R 4 9 60 0 4e-04 20 5.53 6.92 0.001 0 5.953 0
Contrasts

Sas+

Fpe+

Fpe-

Sas+

Fpe+

FBL-B

Results table

dat <- readxl::read_xlsx('O:/studies/grapholemo/analysis/LEMO_GFG/mri/2ndLevel/FeedbackLearning/Result_regions_2Lv_GLM0_thirds_exMiss.xlsx')
dat <-dat[grep('FBL_B',dat$file),]
#some formatting 
dat$file <- substr(dat$file,unlist(gregexpr('con_0',dat$file)),unlist(gregexpr('con_0',dat$file))+7) #keep just the con_**** as name 
dat <- dplyr::relocate(dat,'aal',2) 
    dat <-  dplyr::relocate(dat,'file',1)
    cons2plot <- unique(dat$file)  


# Rename contrasts 
urfile <- dat$file 
renamecontrasts <- function(originalNames){
    
    originalNames <- gsub('con_0002','S1>S3',originalNames)
    originalNames <- gsub('con_0003','S3>S1',originalNames)
    originalNames <- gsub('con_0004','F1>F3',originalNames)
    originalNames <- gsub('con_0005','F3>F1',originalNames)
    originalNames <- gsub('con_0006','S1>.',originalNames)
    originalNames <- gsub('con_0007','S3>.',originalNames)
    originalNames <- gsub('con_0008','F1>.',originalNames)
    originalNames <- gsub('con_0009','F3>.',originalNames)
    
}

dat$file <- renamecontrasts(dat$file) 

knitr::kable(dat,caption='', digits=3) %>% 
    #kable_styling(bootstrap_options = c("striped", "hover"), full_width = F) %>%
    column_spec(1, bold = T, border_right = T ) %>%
    kable_classic(full_width = F, html_font = "Calibri")
file aal xcoord ycoord zcoord cluster_pFWE cluster_punc cluster_k peak_Z peak_T peak_pFWE peak_punc T_heightThresh dist
S3>S1 Calcarine_R 22 -93 0 0 0 3569 6.58 9.07 0 0 3.324 0
S3>S1 Cingulum_Mid_L -5 -3 48 0 0 687 5.61 7.06 7e-04 0 3.324 0
S3>S1 Postcentral_L -38 -30 51 0 0 1070 5.37 6.63 0.0028 0 3.324 0
S3>S1 Postcentral_R 43 -21 42 0 0 556 5.26 6.43 0.0054 0 3.324 0
S3>S1 Caudate_L -8 12 -3 0.0085 5e-04 79 4.97 5.95 0.0247 0 3.324 0
S3>S1 Parietal_Sup_L -11 -84 57 8e-04 1e-04 119 4.84 5.74 0.0481 0 3.324 3.16
S3>S1 Insula_R 34 24 6 0.0151 0.001 70 4.81 5.7 0.0538 0 3.324 0
S3>S1 Amygdala_L -14 0 -9 0.0184 0.0012 67 4.57 5.31 0.1405 0 3.324 3
S3>S1 Pallidum_R 13 0 3 0.0096 6e-04 77 3.99 4.49 0.7012 0 3.324 2.24
F1>F3 Temporal_Mid_R 61 -27 -12 5e-04 0 127 3.95 4.43 0.7604 0 3.319 0
F3>F1 Calcarine_R 19 -90 -3 0 0 340 5.28 6.47 0.0048 0 3.33 0
F3>F1 Lingual_L -17 -90 0 0 0 279 4.76 5.61 0.0684 0 3.33 0
S1>. Temporal_Sup_L -50 -24 3 0 0 3613 7.6 11.79 0 0 3.321 0
S1>. Temporal_Sup_R 58 -21 3 0 0 1034 7.43 11.27 0 0 3.321 0
S1>. Frontal_Inf_Oper_R 40 0 27 0 0 380 5.6 7.05 8e-04 0 3.321 3
S1>. Parietal_Sup_R 31 -63 54 0 0 399 5.29 6.49 0.0044 0 3.321 0
S1>. Occipital_Inf_L -35 -78 -9 0 0 397 5.16 6.26 0.0091 0 3.321 0
S1>. Temporal_Inf_R 49 -57 -12 0 0 346 5.11 6.18 0.0118 0 3.321 0
S1>. Insula_R 34 21 3 0.0163 0.0011 73 4.95 5.92 0.0267 0 3.321 0
S3>. Supp_Motor_Area_L -5 3 51 0 0 9762 Inf 13.04 0 0 3.451 0
S3>. Occipital_Mid_R 34 -81 3 0 0 2903 7.46 11.36 0 0 3.451 0
S3>. Temporal_Sup_R 58 -12 0 0 0 1100 7.21 10.66 0 0 3.451 0
F1>. Cerebelum_8_L -14 -66 -36 0 0 2724 6.5 8.89 0 0 3.324 0
F1>. Frontal_Mid_Orb_R 25 45 -18 0 0 2440 6.21 8.25 0 0 3.324 0
F1>. Frontal_Inf_Orb_L -56 36 -9 0 0 1261 5.64 7.12 6e-04 0 3.324 1
F1>. Parietal_Inf_L -50 -54 54 0 0 799 5.59 7.02 8e-04 0 3.324 0
F1>. Frontal_Inf_Oper_L -50 18 36 0 0 238 4.53 5.26 0.1468 0 3.324 0
F1>. Frontal_Sup_R 13 18 51 0.0033 2e-04 101 4.42 5.1 0.2147 0 3.324 0
F1>. Temporal_Mid_L -65 -36 -9 0 0 314 4.09 4.61 0.5592 0 3.324 0
F3>. Occipital_Mid_L -17 -93 3 0 0 1789 7.13 10.43 0 0 3.338 0
F3>. Parietal_Inf_L -56 -51 45 0 0 1012 5.45 6.77 0.0018 0 3.338 1
F3>. Frontal_Inf_Tri_L -47 45 0 0 0 1030 5.2 6.33 0.0073 0 3.338 0
F3>. Frontal_Inf_Orb_R 52 30 -9 0 0 924 4.76 5.61 0.0584 0 3.338 0
F3>. Angular_R 49 -60 48 0 0 373 4.58 5.34 0.1164 0 3.338 0
F3>. Frontal_Sup_Medial_L -2 27 48 3e-04 0 157 4.41 5.08 0.2159 0 3.338 0
F3>. ParaHippocampal_L -8 -18 -33 0.0162 0.0012 77 4.14 4.68 0.4806 0 3.338 11.7
Contrasts
S3>S1

F1>F3

F3>F1

S1>.

S3>.

F1>.

F3>.

Model-based GLM

Onsets of stimuli and feedback against baseline. One regressor of no interest contained onsets of feedback and stimuli in trials with missing responses These results are based on FWE corrected p

Results table
dat <- readxl::read_xlsx('O:/studies/grapholemo/analysis/LEMO_GFG/mri/2ndLevel/FeedbackLearning/Result_regions_2Lv_GLM0_mopa_aspe_withFWE.xlsx')
dat <-dat[grep('FBL_B',dat$file),]
dat <- dat[c(grep('con_0006',dat$file),grep('con_0007',dat$file),grep('con_0008',dat$file),grep('con_0009',dat$file)),]

#some formatting 
dat$file <- substr(dat$file,unlist(gregexpr('con_0',dat$file)),unlist(gregexpr('con_0',dat$file))+7) #keep just the con_**** as name 
dat <- dplyr::relocate(dat,'aal',2) 
    dat <-  dplyr::relocate(dat,'file',1)
    cons2plot <- unique(dat$file)  
if (any(dat$cluster_k>15)){
  dat<-dat[which(as.numeric(dat$cluster_k)>15),]
}
# Rename contrasts 
urfile <- dat$file 
 
dat$file <- renamecontrastsmopa(dat$file) 

knitr::kable(dat,caption='', digits=3) %>% 
    #kable_styling(bootstrap_options = c("striped", "hover"), full_width = F) %>%
    column_spec(1, bold = T, border_right = T ) %>%
    kable_classic(full_width = F, html_font = "Calibri")
file aal xcoord ycoord zcoord cluster_pFWE cluster_punc cluster_k peak_Z peak_T peak_pFWE peak_punc T_heightThresh dist
Sas+ Occipital_Mid_L -17 -93 3 0 0 77 6.44 8.75 0.000 0 5.972 0
Sas+ Calcarine_R 19 -90 0 0 3e-04 16 5.5 6.86 0.001 0 5.972 0
Contrasts

Sas+

Sas+

fMRI: Regions of interest analysis

FBL-A

GLM-thirds

  • Onsets of stimuli and feedback for each third of trials. One regressor of no interest contained onsets of feedback and stimuli in trials with missing responses
  • Linear mixed models with iterative exclusion of outliers based on residuals (residuals_threshold 2.5 )
Results table
dat <- readxl::read_xlsx('O:/studies/grapholemo/analysis/LEMO_GFG/mri/stats_ROI/LMM_ROI_betas_2LvGLM0thirdsexMiss_tidy.xlsx')
dat <-dat[grep('FBLA',dat$Effect),]
colnames(dat) <- gsub('-value','',colnames(dat))


knitr::kable(dat,caption='', digits=3) %>% 
    #kable_styling(bootstrap_options = c("striped", "hover"), full_width = F) %>%
    column_spec(1, bold = T, border_right = T ) %>%
    kable_classic(full_width = F, html_font = "Calibri")
Effect numDF denDF F p niterations residual_threshold excludedRows_id excludedRows_n excludedRows_percent summary
eigen_FBLA_LFusi_stim10vs30 1 38 10.73 0.002 1 2.5 NA 0 0 F(1,38)=10.73, p=0.002
eigen_FBLA_RFusi_stim10vs30 1 38 1.32 0.258 1 2.5 NA 0 0 F(1,38)=1.32, p=0.258
eigen_FBLA_LPrecentral_stim10vs30 1 38 12.34 0.001 1 2.5 NA 0 0 F(1,38)=12.34, p=0.001
eigen_FBLA_RPrecentral_stim10vs30 1 38 4.38 0.043 1 2.5 NA 0 0 F(1,38)=4.38, p=0.043
eigen_FBLA_LSTG_stim10vs30 1 36 0.51 0.478 2 2.5 65,77 2 2.56 F(1,36)=0.51, p=0.478
eigen_FBLA_RSTG_stim10vs30 1 38 0.19 0.669 1 2.5 NA 0 0 F(1,38)=0.19, p=0.669
eigen_FBLA_LPutamen_stim10vs30 1 36 31.37 0.000 2 2.5 28,65 2 2.56 F(1,36)=31.37, p=0
eigen_FBLA_RPutamen_stim10vs30 1 38 0.17 0.679 1 2.5 NA 0 0 F(1,38)=0.17, p=0.679
eigen_FBLA_LHippocampus_stim10vs30 1 38 0.40 0.530 1 2.5 NA 0 0 F(1,38)=0.4, p=0.53
eigen_FBLA_RHippocampus_stim10vs30 1 38 0.85 0.363 1 2.5 NA 0 0 F(1,38)=0.85, p=0.363
eigen_FBLA_LCaudate_stim10vs30 1 36 25.12 0.000 3 2.5 28,65 2 2.56 F(1,36)=25.12, p=0
eigen_FBLA_RCaudate_stim10vs30 1 35 22.16 0.000 5 2.5 41,42,65,72 4 5.13 F(1,35)=22.16, p=0
eigen_FBLA_LInsula_stim10vs30 1 36 10.34 0.003 3 2.5 42,65 2 2.56 F(1,36)=10.34, p=0.003
eigen_FBLA_RInsula_stim10vs30 1 36 0.21 0.647 2 2.5 65,77 2 2.56 F(1,36)=0.21, p=0.647
eigen_FBLA_LmidCingulum_stim10vs30 1 37 0.34 0.562 3 2.5 65,66 2 2.56 F(1,37)=0.34, p=0.562
eigen_FBLA_RmidCingulum_stim10vs30 1 38 1.26 0.268 1 2.5 NA 0 0 F(1,38)=1.26, p=0.268
eigen_FBLA_LSupramarginal_stim10vs30 1 37 0.14 0.714 2 2.5 77 1 1.28 F(1,37)=0.14, p=0.714
eigen_FBLA_RSupramarginal_stim10vs30 1 35 0.55 0.463 3 2.5 64,65,77 3 3.85 F(1,35)=0.55, p=0.463
eigen_FBLA_LFusi_fb10vs30 1 37 0.00 0.981 2 2.5 36 1 1.28 F(1,37)=0, p=0.981
eigen_FBLA_RFusi_fb10vs30 1 38 0.03 0.866 1 2.5 NA 0 0 F(1,38)=0.03, p=0.866
eigen_FBLA_LPrecentral_fb10vs30 1 36 1.31 0.260 3 2.5 42,70 2 2.56 F(1,36)=1.31, p=0.26
eigen_FBLA_RPrecentral_fb10vs30 1 38 2.96 0.094 1 2.5 NA 0 0 F(1,38)=2.96, p=0.094
eigen_FBLA_LSTG_fb10vs30 1 35 0.80 0.376 3 2.5 42,65,78 3 3.85 F(1,35)=0.8, p=0.376
eigen_FBLA_RSTG_fb10vs30 1 37 0.11 0.747 2 2.5 25 1 1.28 F(1,37)=0.11, p=0.747
eigen_FBLA_LPutamen_fb10vs30 1 38 2.18 0.148 1 2.5 NA 0 0 F(1,38)=2.18, p=0.148
eigen_FBLA_RPutamen_fb10vs30 1 38 0.63 0.431 1 2.5 NA 0 0 F(1,38)=0.63, p=0.431
eigen_FBLA_LHippocampus_fb10vs30 1 38 0.71 0.405 1 2.5 NA 0 0 F(1,38)=0.71, p=0.405
eigen_FBLA_RHippocampus_fb10vs30 1 38 0.29 0.595 1 2.5 NA 0 0 F(1,38)=0.29, p=0.595
eigen_FBLA_LCaudate_fb10vs30 1 38 1.31 0.260 1 2.5 NA 0 0 F(1,38)=1.31, p=0.26
eigen_FBLA_RCaudate_fb10vs30 1 36 1.40 0.244 3 2.5 27,41 2 2.56 F(1,36)=1.4, p=0.244
eigen_FBLA_LInsula_fb10vs30 1 38 8.49 0.006 1 2.5 NA 0 0 F(1,38)=8.49, p=0.006
eigen_FBLA_RInsula_fb10vs30 1 37 14.72 0.000 2 2.5 40 1 1.28 F(1,37)=14.72, p=0
eigen_FBLA_LmidCingulum_fb10vs30 1 37 12.20 0.001 2 2.5 78 1 1.28 F(1,37)=12.2, p=0.001
eigen_FBLA_RmidCingulum_fb10vs30 1 37 8.96 0.005 2 2.5 40 1 1.28 F(1,37)=8.96, p=0.005
eigen_FBLA_LSupramarginal_fb10vs30 1 37 3.59 0.066 2 2.5 78 1 1.28 F(1,37)=3.59, p=0.066
eigen_FBLA_RSupramarginal_fb10vs30 1 38 0.66 0.422 1 2.5 NA 0 0 F(1,38)=0.66, p=0.422
Contrasts

Model-based GLM

Onsets of stimuli and feedback against baseline. One regressor of no interest contained onsets of feedback and stimuli in trials with missing responses These results are based on FWE corrected p

Results table
Contrasts

FBL-B

Results table

dat <- readxl::read_xlsx('O:/studies/grapholemo/analysis/LEMO_GFG/mri/stats_ROI/LMM_ROI_betas_2LvGLM0thirdsexMiss_tidy.xlsx')
dat <-dat[grep('FBLB',dat$Effect),]
colnames(dat) <- gsub('-value','',colnames(dat))


knitr::kable(dat,caption='', digits=3) %>% 
    #kable_styling(bootstrap_options = c("striped", "hover"), full_width = F) %>%
    column_spec(1, bold = T, border_right = T ) %>%
    kable_classic(full_width = F, html_font = "Calibri")
Effect numDF denDF F p niterations residual_threshold excludedRows_id excludedRows_n excludedRows_percent summary
eigen_FBLB_LFusi_stim10vs30 1 38 13.08 0.001 1 2.5 NA 0 0 F(1,38)=13.08, p=0.001
eigen_FBLB_RFusi_stim10vs30 1 38 15.45 0.000 1 2.5 NA 0 0 F(1,38)=15.45, p=0
eigen_FBLB_LPrecentral_stim10vs30 1 38 7.05 0.012 1 2.5 NA 0 0 F(1,38)=7.05, p=0.012
eigen_FBLB_RPrecentral_stim10vs30 1 38 2.54 0.120 1 2.5 NA 0 0 F(1,38)=2.54, p=0.12
eigen_FBLB_LSTG_stim10vs30 1 35 1.32 0.258 3 2.5 11,40,41,42 4 5.13 F(1,35)=1.32, p=0.258
eigen_FBLB_RSTG_stim10vs30 1 36 0.07 0.794 3 2.5 40,41 2 2.56 F(1,36)=0.07, p=0.794
eigen_FBLB_LPutamen_stim10vs30 1 37 7.83 0.008 3 2.5 65,66 2 2.56 F(1,37)=7.83, p=0.008
eigen_FBLB_RPutamen_stim10vs30 1 36 4.04 0.052 3 2.5 65,78 2 2.56 F(1,36)=4.04, p=0.052
eigen_FBLB_LHippocampus_stim10vs30 1 38 0.24 0.625 1 2.5 NA 0 0 F(1,38)=0.24, p=0.625
eigen_FBLB_RHippocampus_stim10vs30 1 37 0.41 0.525 2 2.5 15 1 1.28 F(1,37)=0.41, p=0.525
eigen_FBLB_LCaudate_stim10vs30 1 38 9.02 0.005 1 2.5 NA 0 0 F(1,38)=9.02, p=0.005
eigen_FBLB_RCaudate_stim10vs30 1 36 7.98 0.008 2 2.5 41,65 2 2.56 F(1,36)=7.98, p=0.008
eigen_FBLB_LInsula_stim10vs30 1 38 4.54 0.040 1 2.5 NA 0 0 F(1,38)=4.54, p=0.04
eigen_FBLB_RInsula_stim10vs30 1 38 7.77 0.008 1 2.5 NA 0 0 F(1,38)=7.77, p=0.008
eigen_FBLB_LmidCingulum_stim10vs30 1 38 8.54 0.006 1 2.5 NA 0 0 F(1,38)=8.54, p=0.006
eigen_FBLB_RmidCingulum_stim10vs30 1 38 10.34 0.003 1 2.5 NA 0 0 F(1,38)=10.34, p=0.003
eigen_FBLB_LSupramarginal_stim10vs30 1 36 1.62 0.211 2 2.5 40,78 2 2.56 F(1,36)=1.62, p=0.211
eigen_FBLB_RSupramarginal_stim10vs30 1 37 0.12 0.726 2 2.5 40 1 1.28 F(1,37)=0.12, p=0.726
eigen_FBLB_LFusi_fb10vs30 1 37 0.29 0.592 2 2.5 48 1 1.28 F(1,37)=0.29, p=0.592
eigen_FBLB_RFusi_fb10vs30 1 38 0.14 0.709 1 2.5 NA 0 0 F(1,38)=0.14, p=0.709
eigen_FBLB_LPrecentral_fb10vs30 1 38 0.18 0.677 1 2.5 NA 0 0 F(1,38)=0.18, p=0.677
eigen_FBLB_RPrecentral_fb10vs30 1 38 1.03 0.316 1 2.5 NA 0 0 F(1,38)=1.03, p=0.316
eigen_FBLB_LSTG_fb10vs30 1 37 1.86 0.181 2 2.5 41 1 1.28 F(1,37)=1.86, p=0.181
eigen_FBLB_RSTG_fb10vs30 1 38 0.05 0.821 1 2.5 NA 0 0 F(1,38)=0.05, p=0.821
eigen_FBLB_LPutamen_fb10vs30 1 38 0.00 0.983 1 2.5 NA 0 0 F(1,38)=0, p=0.983
eigen_FBLB_RPutamen_fb10vs30 1 38 2.02 0.164 1 2.5 NA 0 0 F(1,38)=2.02, p=0.164
eigen_FBLB_LHippocampus_fb10vs30 1 38 0.11 0.740 1 2.5 NA 0 0 F(1,38)=0.11, p=0.74
eigen_FBLB_RHippocampus_fb10vs30 1 38 0.21 0.651 1 2.5 NA 0 0 F(1,38)=0.21, p=0.651
eigen_FBLB_LCaudate_fb10vs30 1 38 0.14 0.710 1 2.5 NA 0 0 F(1,38)=0.14, p=0.71
eigen_FBLB_RCaudate_fb10vs30 1 37 0.53 0.473 2 2.5 42 1 1.28 F(1,37)=0.53, p=0.473
eigen_FBLB_LInsula_fb10vs30 1 38 0.04 0.850 1 2.5 NA 0 0 F(1,38)=0.04, p=0.85
eigen_FBLB_RInsula_fb10vs30 1 38 1.40 0.244 1 2.5 NA 0 0 F(1,38)=1.4, p=0.244
eigen_FBLB_LmidCingulum_fb10vs30 1 38 0.09 0.764 1 2.5 NA 0 0 F(1,38)=0.09, p=0.764
eigen_FBLB_RmidCingulum_fb10vs30 1 38 0.02 0.886 1 2.5 NA 0 0 F(1,38)=0.02, p=0.886
eigen_FBLB_LSupramarginal_fb10vs30 1 38 0.02 0.894 1 2.5 NA 0 0 F(1,38)=0.02, p=0.894
eigen_FBLB_RSupramarginal_fb10vs30 1 38 1.48 0.232 1 2.5 NA 0 0 F(1,38)=1.48, p=0.232
Contrasts

Model-based GLM

Onsets of stimuli and feedback against baseline. One regressor of no interest contained onsets of feedback and stimuli in trials with missing responses These results are based on FWE corrected p

Results table
Contrasts

```